home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Test / man2.lsp < prev    next >
Text File  |  1990-10-11  |  3KB  |  75 lines
  1. (setf man (send graph-window-proto :new))
  2.  
  3. (make-color 'pink .6 1 1)
  4. (send man :draw-color 'pink)
  5. (send man :paint-oval 170 100  60  50)
  6. (send man :paint-rect 198 120   5  15)
  7. (send man :paint-rect 185 140  30   3)
  8. (send man :paint-rect 165 120   5  10)
  9. (send man :paint-rect 165 120   5  10)
  10. (send man :paint-rect 230 120   5  10)
  11. (send man :paint-rect 190 150  20  10)
  12. (send man :paint-rect  60 140  20  50)
  13. (send man :paint-rect  58 130  25  10)
  14. (send man :paint-rect  58 125   6   5)
  15. (send man :paint-rect  64 120   6  10)
  16. (send man :paint-rect  70 115   6  15)
  17. (send man :paint-rect  76 120   6  10)
  18. (send man :paint-rect  83 130   5   4)
  19. (send man :paint-rect 320 160  20  50)
  20. (send man :paint-rect 318 210  25  10)
  21. (send man :paint-rect 313 215   5   5)
  22. (send man :paint-rect 337 220   6   5)
  23. (send man :paint-rect 331 220   6   7)
  24. (send man :paint-rect 325 220   6  10)
  25. (send man :paint-rect 319 220   6   7)
  26. (send man :draw-color 'red)
  27. (send man :paint-rect 130 160 140  80)
  28. (send man :paint-rect  80 160  50  30)
  29. (send man :paint-rect 270 160  50  30)
  30. (send man :draw-color 'blue)
  31. (send man :paint-rect 128 240 144  40)
  32. (send man :paint-rect 128 280  42  40)
  33. (send man :paint-rect 230 280  42  40)
  34. (send man :paint-oval 185 115   5   5)
  35. (send man :paint-oval 210 115   5   5)
  36. (send man :paint-oval 198 170   4   4)
  37. (send man :paint-oval 198 185   4   4)
  38. (send man :paint-oval 198 200   4   4)
  39. (send man :paint-oval 198 215   4   4)
  40. (send man :paint-oval 198 230   4   4)
  41. (send man :draw-color 'green)
  42. (send man :paint-rect 130 320  38  20)
  43. (send man :paint-rect 232 320  38  20)
  44. (send man :draw-color 'black)
  45. (send man :frame-oval 170 100  60  50)
  46. (send man :frame-oval 185 115   5   5)
  47. (send man :frame-oval 210 115   5   5)
  48. (send man :frame-rect 198 120   5  15)
  49. (send man :frame-rect 185 140  30   3)
  50. (send man :frame-rect 165 120   5  10)
  51. (send man :frame-rect 165 120   5  10)
  52. (send man :frame-rect 230 120   5  10)
  53. (send man :frame-rect 190 150  20  10)
  54. (send man :frame-rect  60 140  20  50)
  55. (send man :frame-rect  58 130  25  10)
  56. (send man :frame-rect  58 125   6   5)
  57. (send man :frame-rect  64 120   6  10)
  58. (send man :frame-rect  70 115   6  15)
  59. (send man :frame-rect  76 120   6  10)
  60. (send man :frame-rect  83 130   5   4)
  61. (send man :frame-rect 320 160  20  50)
  62. (send man :frame-rect 318 210  25  10)
  63. (send man :frame-rect 313 215   5   5)
  64. (send man :frame-rect 337 220   6   5)
  65. (send man :frame-rect 331 220   6   7)
  66. (send man :frame-rect 325 220   6  10)
  67. (send man :frame-rect 319 220   6   7)
  68. (send man :paint-rect 123 340  52  10)
  69. (send man :paint-rect 225 340  52  10)
  70. (send man :draw-string "Not a self portrait." 125 375)
  71. (send man :draw-color 'magenta)
  72. (send man :paint-poly '((190 90) (210 90) (230 105) (170 105) (190 90)))
  73. (send man :draw-color 'yellow)
  74. (send man :paint-poly '((205 93) (220 60) (212 100) (205 93)))
  75.